object BrowseDlg: TBrowseDlg Left = 370 Top = 256 Width = 420 Height = 453 BorderIcons = [biSystemMenu] BorderWidth = 4 Caption = 'Rechercher le dossier de base' Color = clBtnFace Constraints.MinHeight = 453 Constraints.MinWidth = 420 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poOwnerFormCenter OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel3: TBevel Left = 0 Top = 0 Width = 404 Height = 4 Align = alTop Shape = bsSpacer end object PathLabel: TLabel Left = 0 Top = 4 Width = 404 Height = 13 Align = alTop Caption = '%' ShowAccelChar = False end object Bevel1: TBevel Left = 0 Top = 17 Width = 404 Height = 8 Align = alTop Shape = bsSpacer end object Panel1: TPanel Left = 0 Top = 391 Width = 404 Height = 27 Align = alBottom BevelOuter = bvNone TabOrder = 0 object OKBtn: TButton Left = 12 Top = 4 Width = 73 Height = 23 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = OKBtnClick end object CancelBtn: TButton Left = 92 Top = 4 Width = 73 Height = 23 Cancel = True Caption = 'Annuler' ModalResult = 2 TabOrder = 1 OnClick = CancelBtnClick end end object PageControl: TPageControl Left = 0 Top = 25 Width = 404 Height = 366 ActivePage = tsFileSystem Align = alClient TabOrder = 1 OnChange = PageControlChange object tsFileSystem: TTabSheet BorderWidth = 8 Caption = 'Syst'#232'me de fichiers' object Splitter1: TSplitter Left = 0 Top = 249 Width = 380 Height = 3 Cursor = crVSplit Align = alBottom end object ShellTree: TPTShellTree Left = 0 Top = 0 Width = 380 Height = 249 ShellList = ShellList Options = [ptstoDefaultKeyHandling, ptstoContextMenus, ptstoShowHidden] HideSelection = False Indent = 19 OnChange = ShellTreeChange Align = alClient TabOrder = 0 end object ShellList: TPTShellList Left = 0 Top = 252 Width = 380 Height = 70 Options = [ptsloDefaultKeyHandling, ptsloContextMenus, ptsloDontChangeFolder, ptsloDontGoBelowBase, ptsloShowHidden] OnAddItem = ShellListAddItem OnDblClickOpen = ShellListDblClickOpen OnFillComplete = ShellListFillComplete Align = alBottom OnClick = ShellListClick IconOptions.AutoArrange = True TabOrder = 1 ViewStyle = vsList end end object tsFTPSite: TTabSheet BorderWidth = 8 Caption = 'Site FTP' ImageIndex = 1 object Bevel2: TBevel Left = 0 Top = 201 Width = 380 Height = 8 Align = alTop Shape = bsSpacer end object Panel2: TPanel Left = 0 Top = 0 Width = 380 Height = 201 Align = alTop BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 20 Top = 4 Width = 38 Height = 13 Alignment = taRightJustify Caption = 'R'#233'cent:' end object GroupBox1: TGroupBox Left = 0 Top = 24 Width = 380 Height = 177 TabOrder = 0 object Label5: TLabel Left = 16 Top = 16 Width = 56 Height = 13 Caption = 'Nom de l'#39'h'#244'te :' end object PortLabel: TLabel Left = 272 Top = 16 Width = 24 Height = 13 Caption = 'Port :' end object Label2: TLabel Left = 16 Top = 56 Width = 117 Height = 13 Caption = 'R'#233'pertoire distant initial :' end object Label7: TLabel Left = 71 Top = 124 Width = 52 Height = 13 Alignment = taRightJustify Caption = 'Nom d'#39'utilisateur :' end object PasswordLabel: TLabel Left = 73 Top = 148 Width = 50 Height = 13 Alignment = taRightJustify Caption = 'Mot de passe :' end object HostEdit: TEdit Left = 16 Top = 32 Width = 249 Height = 21 TabOrder = 0 OnChange = FTPEditChange end object PortEdit: TEdit Left = 272 Top = 32 Width = 36 Height = 21 TabOrder = 1 Text = '21' OnChange = FTPEditChange end object PathEdit: TEdit Left = 16 Top = 72 Width = 249 Height = 21 TabOrder = 2 OnChange = FTPEditChange end object AnonymousEdit: TBCCheckBox Left = 128 Top = 100 Width = 104 Height = 17 Caption = 'Connexion anonyme' Checked = True State = cbChecked TabOrder = 3 OnClick = AnonymousEditClick end object UsernameEdit: TEdit Left = 128 Top = 120 Width = 140 Height = 21 Enabled = False TabOrder = 4 OnChange = FTPEditChange end object PasswordEdit: TEdit Left = 128 Top = 144 Width = 140 Height = 21 PasswordChar = '*' TabOrder = 5 OnChange = FTPEditChange end end object RecentFTPSites: TComboBox Left = 64 Top = 0 Width = 316 Height = 21 AutoComplete = False Style = csDropDownList ItemHeight = 0 TabOrder = 1 OnChange = RecentFTPSitesChange end end object FTPLog: TListBox Left = 0 Top = 209 Width = 380 Height = 113 Align = alClient ItemHeight = 13 TabOrder = 0 end end end end